﻿<%
dim liao
'连接数据库
on error resume next
Set liao=CreateObject("Adodb.Connection")
liao.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.Mappath("../#yxxe.mdb")
If Err Then
response.Write "连接数据库出错!"
err.Clear
Set liao = Nothing
Response.End
End If

%>